home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.06 Jun 89 / HyperArrays ƒ / HYPER array / getdata.p < prev    next >
Encoding:
Text File  |  1989-03-07  |  1.0 KB  |  41 lines  |  [TEXT/MPS ]
  1.  
  2. unit getdataXcmd;
  3. interface
  4.     uses MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, HyperXCMD, QDAccess;
  5. procedure getdata(ParamPtr: XCMDPtr);
  6. implementation
  7.     type
  8.         timeDarray=array[0..59] of integer;
  9. procedure arrayrsc(ParamPtr: XCMDPtr);forward;
  10. procedure getdata(paramptr:xcmdptr);
  11.     begin
  12.         arrayrsc(paramptr);
  13.     end;
  14. procedure arrayrsc(ParamPtr: XCMDPtr);
  15. var
  16.         MYTIMEHAND:HANDLE;
  17.         REFNUM:INTEGER;
  18.         TIMEARRAY:TIMEDARRAY;
  19.         temphandle:handle;
  20.         tempstr:str255;
  21.         a :integer;
  22.         horiz:longint;
  23. {**************** GET POINTS *********************************}
  24. procedure getpoints(Paramptr:xcmdPtr;var num:longint);
  25.     var tempstr1:str255;
  26. begin
  27.     zerotopas(paramptr,paramptr^.params[1]^,tempstr1);
  28.     horiz:=strtonum(paramptr,tempstr1);
  29.     
  30. end;
  31.     begin
  32.     MYTIMEHAND:=(GETRESOURCE('ANES',1005));
  33.     HLOCK(MYTIMEHAND);
  34.     BLOCKMOVE(MYTIMEHAND^,@TIMEARRAY,SIZEOF(TIMEARRAY));
  35.      getpoints(paramptr,horiz);
  36.     a:=timearray[horiz];
  37.      longtostr(paramptr,a,tempstr);
  38.     paramptr^.returnvalue:= pastozero(paramptr,tempstr);
  39.     releaseresource(mytimehand);
  40.     end;
  41. end.